home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_A.d64 / voltmeter - demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  32 lines
  1. 10 printchr$(5);chr$(14);chr$(147);
  2. 100 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  3. 200 print"[221]         [214]oltmeter ([214]1)  [196]emo         [146][221]";
  4. 300 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  5. 400 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  6. 500 print"[221] [194]ereich :         [214]olt [221]             [221]";
  7. 600 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]             [221]";
  8. 700 print"[221] [205]essung :         [214]olt [221]             [221]";
  9. 800 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]             [221]";
  10. 900 print"[221]                                      [221]";
  11. 1000 print"[221] [196]er [205]essbereich kann zwischen  2.000 [221]";
  12. 1100 print"[221] und  20.00 [214]olt  mit  dem   [211]chalter [221]";
  13. 1200 print"[221] angewaehlt werden.                   [221]";
  14. 1210 print"[221]                                      [221]";
  15. 1300 print"[221] [196]er [205]esswert wird in einem  [211]tring , [221]";
  16. 1400 print"[221] der vorher deklariert und mindestens [221]";
  17. 1500 print"[221] sechs  [218]eichen  lang  sein muss ,    [221]";
  18. 1600 print"[221] zurueckgegeben.                      [221]";
  19. 1700 print"[221]                                      [221]";
  20. 2500 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  21. 2600 me$="+00.11"
  22. 2610 :
  23. 2700 print""mess$
  24. 2800 sys49152,mess$:rem messwert holen.
  25. 2900 print"";
  26. 2910 :
  27. 2950 rem messbereich pruefen.
  28. 3000 ifmid$(me$,3,1)="."then print"2.000";
  29. 3100 ifmid$(me$,4,1)="."then print"20.00";
  30. 3200 ifpeek(203)=64then2700
  31. 3300 end
  32.